home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1240 < prev    next >
Text File  |  1996-10-03  |  1KB  |  72 lines
  1. %%BeginResource: procset GStateMaintainer 1 0
  2. userdict begin /GStateMaintainerDict 14 dict def end
  3. GStateMaintainerDict begin
  4. /_gsave /gsave load def
  5. /_grestore /grestore load def
  6. /_grestoreall /grestoreall load def
  7. /_save /save load def
  8. /gstack 32 array def
  9. 0 1 gstack length 1 sub {
  10. gstack exch 8 dict put
  11. } for
  12. /gstackptr 0 def
  13. /gstacksaveptr 0 def
  14. /gdictcopy {
  15. begin
  16. { def } forall
  17. end
  18. } bind def
  19. /gput {
  20. GStateMaintainerDict begin
  21. gstack gstackptr get                
  22. 3 1 roll                            
  23. put                                    
  24. end
  25. } bind def
  26. /gget {
  27. GStateMaintainerDict begin
  28. gstack gstackptr get                
  29. exch                                
  30. get                                    
  31. end
  32. } bind def
  33. /gsave {
  34. GStateMaintainerDict begin
  35. _gsave
  36. gstack gstackptr get                
  37. gstackptr 1 add                        
  38. dup 32 ge {limitcheck} if            
  39. /gstackptr exch def                    
  40. gstack gstackptr get                
  41. gdictcopy
  42. end
  43. } bind def
  44. /grestore {
  45. GStateMaintainerDict begin
  46. _grestore
  47. gstackptr 1 sub
  48. dup gstacksaveptr lt {limitcheck} if
  49. /gstackptr exch def
  50. end
  51. } bind def
  52. /grestoreall {
  53. GStateMaintainerDict begin
  54. _grestoreall
  55. /gstackptr gstacksaveptr def
  56. end
  57. } bind def
  58. /save {
  59. GStateMaintainerDict begin
  60. _save                                
  61. gstack gstackptr get                
  62. gstackptr 1 add                        
  63. dup 32 ge {limitcheck} if            
  64. /gstackptr exch def                    
  65. /gstacksaveptr gstackptr def        
  66. gstack gstackptr get                
  67. gdictcopy
  68. end
  69. } bind def
  70. end %. GStateMaintainerDict
  71. %%EndResource